est.unif <- function(x,method)
{
	if (method == "mle")
	{	
		params =  c(min(x),max(x));
	}
	return(params);
}

est.norm <- function(x,method)
{
	if (method == "mle")
	{
		params = c(mean(x),var(x));
	}
	
	return(params);
}
